home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / modi_chr.txt < prev    next >
Text File  |  1994-03-01  |  973b  |  12 lines
  1. 1 '*** OISAC 2 *** MODIF DEFCHR$ ***
  2. 10 ERASEA$:DIMA(4),A$(4):CLS:PRINTCSR6;"TRAVAIL DE MATRICES";TAB(0);"INPUT CODE:";:INPUT@10;A$:IFLEN(A$)<>10;GOTO10ELSEGOSUB240:GOSUB200
  3. 20 CLS:PRINT"["CHR$(255)"]"CSR14"CODE=> "A$TAB(0)"[V],[I],[S],[D],[C]";:A=ASC(INPUT$(1,@)):IFA=73;GOSUB210ELSEIFA=86;GOSUB220ELSEIFA=83;GOSUB230ELSEIFA=67;GOSUB250ELSEIFA=68;GOSUB260
  4. 30 GOTO20
  5. 200 A$=A$(0)+A$(1)+A$(2)+A$(3)+A$(4):DEFCHR$(255)=A$:RETURN
  6. 210 A$=A$(4)+A$(3)+A$(2)+A$(1)+A$(0):GOSUB240:RETURN
  7. 220 J=1:FORI=0TO4:A(I)=(255-VAL("&H"+MID$(A$,J,2))):J=J+2:NEXT:A$="":FORI=0TO4:A$=A$+RIGHT$(HEX$(A(I),2):NEXT:GOSUB240:RETURN
  8. 230 CLS:$=A$+A$:FORI=0TO63:PRINTCHR$(255);:NEXT:LOCATE0,0:FORI=0TO1:I=I-1:FORJ=11TO3STEP-2:O$=MID$($,J,10):DEFCHR$(255)=O$:AT$=INKEY$:IFASC(AT$)=13;A$=O$:GOSUB240:GOTO20ELSEA=SIN5:NEXTJ,I
  9. 240 FORI=0TO4:A$(I)=MID$(A$,((I+1)*2-1),2):NEXT:DEFCHR$(255)=A$:RETURN
  10. 250 LOCATE21,0:INPUT@10;A$:GOSUB240:RETURN
  11. 260 A$=A$(1)+A$(2)+A$(3)+A$(4)+A$(0):GOSUB 240:RETURN
  12.